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SUMMARY 


This report presents the results of work performed in 
the development and testing of a Coal Face Measurement 
System. It begins with a review of the measurement 
method; and the techniques, hardware, and system 
operation procedures. The next portion of the report 
is devoted to a description of the tests performed at 
the Department of Energy facility at Bruceton, PA. 
Conclusions are given in the final section. 
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1.0 SYSTEM MEASUREMENT METHOD 

1.1 Introduction 

A measurement system was developed for the Kickhott 
longwall shearer to determine the cuntoui ut the eoal 
face as it mines coal. Contour data is obtained by an 
indirect measurement technitiue bascnl on evaluatina the 
motion of the shearer duri»^e minim?. Start imi litmi a 
known location, points alonq the coal fact- an- establisheil 
through a knowledge of the machines' ptisi t ions and y.iw 
movements as it moves past the coal faci*. 

The equipment used in thif« system can be grouj^eil into thtet* 
parts. These are; 

1) An angle t ransduet»r assembly 

2) A distan -e transilucet astjembly 

3) Data sttoage and reduction t'hH-tMUiiis 

The angle transducers measure the angb* bid ween resjun-tive 
track sections as the shearer proe<'eds .ilona tlu- etial lai-e. 
The distance transducer functions in eonpinetion with Uumu 
to obtain relative angles at known positions. After com- 
pletely cutting the coal face the accumulated data is 
stored on cassette tape and the present track profile is 
computed and displayed. 
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The transilucer aBsemblieB are Bhown in Figure 1.1. The 
data Btoraqc and reduction electronics is housed jn an 
explosion proof enclosure. See Figure 1.1.1. 

The coal face measuring equipment was constructed at the 
Menton Corporatior and then transferred to the Department 
of Enertjy teat facility at Bruceton, PA. Tests were per- 
formed there for three different coal face profiles by 
physically shaping the track. The system results were 
compared to manually measured values and after analysis 
shown to be within 00.1 foot of the correct contour, 

1.2 Mertsurement Surface 

The topography for a lonqwall mine complex is Illustrated 
in Figure 1.2. The survey marks are points for which 
coordinates have been established. All other points between 
are unknown. 

The technitiue used to measure the coal profile consists 
of measuring the angle between "Eicotrack" rack sections 
over which the shearer moves, and then perforiuing trigono- 
metric cal('ulations to determine its relative shape. The 
rack sections are approximately two and one half feet in 
length and are assembled with conveyor "pan" sections to 
form a path of travel for the machine. The combined length 
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of the unit can total several hundred feet. The actual 
measuiement surface is the "Eicotrack" rack face. It is 
located on the "qob" side of the conveyor which is the 
side away from the coal face. See Figure 1.2.1. 

2.0 SYSTEM CONFIGURATION 

2 . 1 General 

A block diagram of the system is illustrated in Figure 2.1. 

It is divided into intrinsically safe and unsafe equipment. 
The safe equipment consists of two high accuracy resolvers » 
one incremental optical encoder and initiation switches. 

These pieces are housed in the transducer assemblies. The 
remaining equipment is housed within an explosion-proof 
enclosure. 

2. 2 Anglo Measurement 

The angle transducers are mounted in a mechanical support 
structure called the "angle cart". This unit contains the 
mechanics that allow the transducers to accurately produce 
repeatable angular positions. The angle transducers are 
intrinsically safe brushless resolvers and are directly 
connected to the angle measuring shoes. Figure 2.2 provides 
an exposed view of the "angle cart". 

The angle between rack sections is measured differentially by 
the two resolvers. They are attached to a common reference 



Figure 2.1 Measuring System Block Diagram 
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surface and are displaced from one another by a distance 
that is adequate to bridge two rack sections simultaneously 
This relationship is illustrated in Figure 2.2.1. 



Figure 2.2.1 Track Angle Measurement Technique 


The measuring device is designed so that e, the angle 
between sections, is the sum of 9^ and 82 . This design 
permits the measured angle value to remain independent 
of the angle measuring device location. 

Wear and vibration may generate errors if the initial 
relationship between the two resolvers is disturbed. 
Vibration may produce a change which is static in nature 
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roflultH in .in error which occurs at a discrete interval 
of time. When it does occur, all anqle measurements there- 
after deviate from the correct value by the same fixed 
amount. Wear produces a change in the measurements which is 
gradual but cummulative. These two problems are handled 
by making a calibration measurement, across a surface that 
does not change, just prior to measuring a rack angle. This 
measurement is known ai the "bias angle measurement" and is 
made along each rack section. Uncertainties that arise 
because of surface irregularities are handled by making a 
large number of Lias measurements over a short distance of 
track i.itIuM I h.in one nu‘.iHurenu>nt at a fixed point. In the 
computation phase, the bias readings are averaged and the 
result is subtracted from each angle reading to prevent any 
accumulative error. 


2. J Distance Measurement 

j Distance measurement is comprised of defining 1) where the 

coal shearer is relative to a known starting location and 
2) when bias and angle measurements should be made. The 
eipiipment necnietl to perform these functions consists of 
electronic detection and measurement circuitry operating in 

I 

conjunction witfi an encoiling transtlucer which is inter- 
connected through gearing to the shearing machine drive rack. 

I 

i 

1 





Distance is measured by countint} pulses that oriqinatc from 
a 500 line optical incremental encoder. The encoder is 
located inside a support structure called the distance cart 
which is mounted overtop the shearer drive rack. A five 
point starwheel-typo qear contained In the tiistance cart 
makes contact with the rack and rotates one fifth revolution 
for each 126 millimeters of forward movement. The starwheel 
rotation is transferred to the encoder through a system of 
gears that permit distance measurement to be resolved to 
every 1260 micrometers of travel. Figure 2.3 illustrates 
the side and bottom vii.'ws of the ili stance transducer assembly. 



1 

I 



Before distance can be measured, a known reference point 
must exist. This point, known a.s the /eio p»»int , is 
defined by the simultaneous activ.it ion ol limit switches 
and the encoder zero pulse. To guarantee that only one 
reference point occurs along a coal face the limit 
switches are geared to the starwheel so that one actuates 
for every 7.14285 rotations and the other for every 
357.14285 rotations. This coarse/fine configuration 
guarantees that only one reference indication occurs for 
each 885 feet of shearer motion. Once the zero reference 
point has been defined, absolute distance is measured by 
an electronic up/down counter which accumulates pulses 
from the encoder as the shearer moves along the face. 
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The poeitlon at which bias and angle measuremente are made 
is determined by a second set of electronics that operates 
in conjunction with the encoder and the abuolutc up/down 
counter. The initial point at which the firHt bias 
measurement occurs is deflncul by .i coinpai.itoi network out- 
put that goes high when the absolute position value is 
greater than a thumbwheel set valui*. As the congiaiator 
goes high, another counter network turns on and it is this 
counter's output which Is compared with a distance mt'asure- 
ment value, an angle start value and a distance measurement 
recycle value. The operation of the second counter is 
cyclic since the shearer rack geometry is cyclic. 

4 Roll Measurement 

The roll transducer is mounted within the explosion-proof 
enclosure. The transducer produces an electrical signal 
proportional to angular displacement relative to a vertical 
reference. The unit consists of a pendulum submerged in 
damping fuild. The pendulum's position is sensed to 
provide an analog voltage output of one half volts per 
degree of inclination. The analog output signal is con- 
verted into digital format by a twelve bit D/A (digital-to- 
analog) converter. The most significant bit weight is 16 
degrees and the least significant bit weight is .0078 degrees. 
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3.0 SYSTEM OPERATION 

3.1 General 

The measurement system is designed to operate as the longwall 
shearer makes its numerous passes across the coal face. 

During this time the hardware electronics is sending 
transducer readings to the system microprocessor (Rockwell 
ATM 6500) for temporary storage. Each time the machine moves 
to the end of the conveyor track the accumulated data is 
stored on a cassette tape. After this transfer the same 
temporary data is reduced mathematically by computer firmware 
(non-volatile software) into a useable format for display. 


During the calculation process the* ptt'sent data is reduced 
with data acquired when the shearer was first installed 
in the mine. Normally before the first run the conveyor 
track is aligned as straight as possible. Then manual 
measurements are made of the conveyor track to obtain the 
exact alignment. The resulting "manual data" is put on a 
non-volatile integrated circuit memory chip which is added 
to the system to become a part of the firmware. Afterwards 
the shearer traverses the total coal face to obtain angle 
information defined as the "initial run data". Subsequently 
this and the "manual data" becomes the basis of all the 
system calculations. 
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The system firmware performs the following i 

1) Initialize system 

2) Input and store transducer data 

3) Transfer accumulated data to tape 

4) Reduce accumulated data to a display format 

5) Display contour of longwall conveyor 

6) Provide information on multiple shearer 
parameters. 

A general system flow chart is given as Figure 3.1. 

3.2 Power-up and Initialization 

At power-up the computer zeroes all of the data and control 
registers. It then configures each input/output port for 
correct data flow. The computer also sets numerous control 
registers and retrieves the conveyor "manual” data from 

non-volatile memory for later use. After set-up the computer 
begins to convey visual information to the machine operator. 
The first display reads "At headgate position push start 
button". When the operator acta upon this instructive 
command the distance and angle count»*rH are zeroed and the 
acquisition of data is enabled. 

The operator may alternately set the system for an "initial 
run" by setting the initial run (key- type) switch to "On" 
before power-up. When this is done the initialization 
routine is the same except that the cassette tape is also 
positioned to its starting point. 
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System Flow Chart 
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3. 3 Data Acquisition 

On the physical systom the resolvers are displaced by fifteen 
inches from one another. Kach bias measurement is then made 
across a five inch span of the thirty inch trackage starting 
at a point that is three and one half inches from the end 
for the trailinti transducer and ei<)htecn and one half inches 
tor tiu' leadimt t r.itiHducer . Mi'asurement is complete when 
the trailing transducer has moved eight and one half inches 
from the track section end - and the leading transducer has 
moved to the twenty-three and one naif inch location. An 
angle measurement is initiated when the trailing transducer 
has moved to the eighteen an<l one half inch location and the 
leading transducer has moved onto the next track section 
throe and one half Inches. It is completed when the trailing 
transducer has moved an additional five inches to twenty- 
throe and one half inches and the leading transducer to the 
eight aiui one half inch fxiint. Figure 3.3 illustrates 
thj technique used to make these measurements. 

The procedure that is used to obtain transducer readings 
is primarily determined by the distance and angle 
electronics. In this electrical section the following are 
switch selectable: 

1) Number of angular samples 

2) Start location of first bias measurement 

3) Start location of angle measurements 

4) M«'a«ure?tK‘nt cycle repetition distance 


Sec Figure 3.3.1. 
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3 . 4 Data Storaqe 

After makinq readings on the last conveyor track section 
the system transfers to tape the accumulated bias, angle, 
and roll measurements. This data is stored on a digital 
cassette recorder in serial phase encoded (Bi-phase-level) 
format. The recorder used to store this information is a 
Ray and Model 6406 "Raycorder". This serves as the long 
term, non-volatile, bulk data storaqe device for this 
project. 

The information is retained on tape in the form of files. 
Each file corresponds to one "run" of t)u* miniiui machine; 
where a "run" is the action of cutting the complete coal 
face once. A 300 foot cassette tape was selected and can 
retain the runs qonc»rat<*«l over .i one iikuH h period. 

If the mining machine has just completed an initial run, 
then this original data is also transferred to non-volatile 
memory for future use. 

3.5 Data Reduction 

The data reduction consumes the most time of the many 
system activities. As an example; a mining machine with a 
conveyor track 600 feet long would require approximately 
two minutes of system data processing. The numerous 
calculations that are made by the system computer are out- 
lined as a general flow chart in Figure 3.5. 
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After the it.it a h.iH Imm*m converted to decimal values the 
prour.im e.i 1 eu I .il en the hiiiH deviation for each reading. 

This is done by com|).Trinq the present bias measurements 
with the "initi.il run” bias measurements. Under normal 
conditions this difference would be very close to zero. 

As soon .IS this calculation has been performed for each 
value then the average bias ileviation is determined. 

The combined computation performed is: 

N 

n « ( r (H. - R. init) )/N 

i»l ^ 

where : 

R - avetaqe bias deviation 

D. - present bias value 

R, init - initial run bias value 

I 

N - number of angles measured 

The next program segment calculates the angle change 
.icross each rack sect it>n by summimi the manually measured 
data to the difference value; the difference value being 
the devi.ition of the present angle measurement from the 
initial run angle value. The computation performed is: 

A (i) = (A^ I>res -A^ init) a^ man 


bo 2b 2- 4 00 


where : 

A U) 
pres 
A^ init 
Aj man 


corrected angle value 
present angle value 
initial run angle value 
manually measured anc|lc value 


with the results f tom the two precc«t'ding t*quationa we 

calculate the actual ancfles between each rack section 

The eiiuation used is: 

I i 

A (1) - y. y (A (i) - h) 

1-1 i-1 


where : 

A (I) - referenced angle value 

A (i) - corrected angle value 

H - average bias value 

f’iuuie 1.5.1 cli'.ttly shows the summation f>roces8. 



, 1 


can 


Fiuure 3.5.1 


Graphic Summation of Measurement Angles 
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At this time* tho firmware determines the *Y' coordinate 
for each rack section refcrre<i to tho position of the 
first rack. Tho qenoral equation is: 

j 

Y (j) - Y (j-1) + L * SIN ( r A (I) ) 

1-1 

where ; 

Y (j) - uncorroctod Y value 

L - length of rack section 

A (I) - referenced angle value 

Figure J.5.2 proBcnts a simple example. Y (0) equals zero. 
Y (1) equ.ilH heiMuse t he init ial tin<|le is assumed zero 





Figure 3.5.2 


Uncorrected Y Coordinate Graph 
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Once the last uncorrected Y coordinate value is determined 
the conveyor track can be referenced to the position of 
the zero rack section. This is done by calculatinn the 
initial angle. In the followin<i explanation I’isiure 3.5.3 
may be used as an aid. 



Figure i.5.I C’liaphic Initi.il Angle Dot ei mi nat ion 

The initial angle woulil l>e deiiv«>»l .u'jmi i a 1 1 y by usitu) 

0^ (actual) » ai ctan (Y last/Xl) 

where : 

0^ (actual) - accurate initial angle value 
Y last - last uncorrected Y coordinate value 


XI 


accurate X distance 
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A very close approximation to this would bet 

(practical) ■ arcsin last/(L*N)) 

where t 

(practical) - practical initial angle value 

Y last - last uncorrccted coordinate value 

L - length of rack section 

N - number of rack sections 

The arcsine equation was used because it does not roi)uire 
the system to calculate all of the X coonli iva tes and thus 
saves on computer processing time. Also the angles derived 
from each equation were very similar. The equation used by 
the computer is: 

R - .rein (llgi-i-pl, 

where t 

R - initial value 

Y (0) - Y value for rack zero 

Y (N) - Y value for last rack 

L - length of rack section 

N - number of rack sections 

The last major calculation that the microprocessor performs 
is to determine the Y coordinates for each rack section 
relative to the initial rack section. 
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The equation let 


J 

Y(J) - Y (J-1) ♦ L * SIN ( E (A(I)-»-R) 

I-l 


) 


where i 

Y(J) 

L 

A(I) 

R 


corrected Y value 
length of track section 
referenced angle value 
i ni t i . 1 1 an<i le 


The resulting coordinate relationship is represented by 



Figure 3.5.4 Corrected Y Coordinate Graph 


3.6 System Display 

The coal face measurement system provides the longwall 
machine operator with two useful display routines. The first 
displays the general curvature of the conveyor track while 
the second pinpoints particular physical parameters of the 
mining machine. 

As the system operates, the curvature of the conveyor track 
is automatically displayed each time the mining machine cuts 
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the complete coal face. This curvature is specified as 
the physical displacement of the track from an imaginary 
center- line stretching from one end of the conveyor track 
to the other. The length of the track is divided into 
15 equal segments which allows for a track contour dis- 
placement to be presented for 15 locations. The displace- 
ment is in feet and the direction of the curve is either 
toward the coal face (FACE) or away from the coal face (GOB). 
The operator sees an alternating display showing the dis- 
placement to either side of the center line. The display 
alternates every four seconds. See Figure 3.6. 


011223210-----J’ face 
0.___---0123210 gob 


I 




Figure 3.6 Conveyor Displacement Display 


During a mining operation the operator can also obtain the 
following system parameters: 

1) Previous displacement of any rack 

2) Present roll of the mining machine 

3) Roll of any rack previously traversed 

4) Actual distance of the mining machine 
from the starting p>oint 
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These functions may be called by first momentarily pushing 
the "function” pushbutton on the XP enclosure. See Figure 
3.6.1. This permits the computer to enter the display 
routine and present instructions to the operator. By 
following the displayed dircctiunB, the upurutur is lead 
step by step through the display format. Figure 3.6.2 
through 3.6.4 describes the computer activites, the infor- 
mation displayed and the actions required of the machine 
operator. 

The system also signals the shearer operator for any v 5 f 
the following possible conditions: 

1) Power failure 

2) Resolver angular <*rror 

3) Cassette loading error 

4) Cassette tape error 

5) Cassette tape full 

A resolver error is flagged when the computer senses that 
an angle reading is ten degrees or more. If this occurs 
the system displays question marks to insure that the 
operator does not act on erroneous data. A cassette 
loading error is signalled when a cassette has not been 
inserted and/or the recorder door has not been closed. 

A cassette tape error occurs whenever the recorder determines 
that there was an error in the transfer of data to the tape. 
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Figure 3.6.1 


XP Enclosure 
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3. 7 Data Retrieval 

Each time the coal face la completely cut the accumulated 
readings are saved on the cassette tape for future 
evaluation. Thus after approximately one month a new 
cassette must be installed in the system. For protection 
from any contaminants, the cassette recorder mechanics is 
contained within a separate sealed box. So instead of 
switching tapes, boxes will swapped. In order to retrieve 
the data from the tape an identical Raymond cassette recorder 
should be used. And with the appropriate Raymond formatter 
option, direct input to a computer is accomplished. 
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4 . 0 test results 

4. 1 Cfcneral 

The accuracy specification for the yaw measurement equipment 
required that the overall system be capable of calculating 
the true curve for a 600 foot coal face to within ± 12 inches 
of its true position. 

System accuracy was confirmed through the performance of 
nine tests at the Bruceton facility. These tests included 
measurement across a straight track, a track bowed approxi- 
mately two feet towards the coal face and a track bowed 
approximately one foot away from the coal face. All testing 
was performed utilizing fifteen Eickhoff pan sections to 
obtain a representative lonqwall configuration. Figure 4.1 
illustrates the straight face track geometry at the Bruceton 
facility. 

4.2 Test Procedure 

The initial test to confirm system performance was under- 
taken on a straight track. The test results were positive. 
The straight track tests were rerun two additional times 
to confirm repeatability. Again the results were very good. 
For the series of measurements the maximum deviation between 
the manually measured values and the system measured values 
was .03 inches. See Figure 4.2. 
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The track was next bowed approximately two feet towards 
the coal face. The bow was placed about midway between 
the end points in an attempt to generate large positive 
and negative angle readings. Three tests were m^.*'* and 
compared with the actual track curvature. The actual 
and cominitcd result r voro the same to within .29 inches. 
Figure 4.2.1 illustrates the track geometry and the 
computed results. 

The third configuration was a bow approximately one 
foot away from the coal face. The results between 
computed and actual geometries were the same to within 
.11 inches. Figure 4.2.2 illustrates the track geometry 
and the computed results for this configuration. 



Figure 4.2 Straight Track Contour 






Figure 4.2.2 GOB Bow Track Contour 


be 262-400 


4 


5.0 CONCLUSION 

A microprocessor based contour measurement system adaptable 
to the Eickhoff shearer was developed for underground use. 

The equipment was tested successfully at the Bruceton 
facility for a number of simulated coal face contours. 
Results indicate that the equipment can repeatedly measure 
shearer conveyor angles to within ± 0.05 degrees and con- 
tours to within 0.1 foot of the correct value. 

Several measurement techniques were developed that bear 
promise for use with other mine related equipment. The 
resultant equipment includes intrinsically safe angle and 
distance measuring transducers. 

The angle measurement system required that a non-contacting 
low energy transducer be acquired. A search resulted in 
the procurement of a low voltage 1 minute accurate size 11 
resolver. Circuiting was developed for use with it and 
the simultaneous goal of accuracy and intrinsic safeness 
was achieved. 

An incremental optical encoder was acquired, combined with 
energy limiting circuitry and limit switches to achieve 
an intrinsically safe absolute distance measuring system 
with a resolution of 0.05 inches. 


The comploto measurement system is presently under review 
by MSIIA for compliance with intrinsic safety standards. 

When approval is received the equipment will be taken 
underground and tested for operability in a mine environment. 
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AIMM'.NDIX A 


A.gJ COMPUTER OPERATION 
A . 1 Oencr.J 1 

The computer di'velopi'd for t hi' coal 1 aei* measurement 
system consists of four integrated ciieuit l)oaids. 

The AIM 6500 microcomputer makes-up the "heart " cd 
the system. A memory board servos as tlu* "'jiains" 
and two I/O boards allow the "heai t and biMins" to 
communicate externally. f'iquri' A. 1-1 prest'iits the 
important features of each board. 

The computt'r takes on the eluuaeter oi a measurement 
system with inelusion of operatitui pioqrams. These 
proqrams <iri‘ listid as Figure A.1--2 and are located 
on EPROM (E lectr lOiil ly I*i oqr iunab 1 e Read ihi 1 y Memory) 
chips. They thus become a permanent part ot the 
system . 

In the following literature the proqrams are briefly 
discussed, shown as flowcharts, and comjjK'tely listed. 
A system memory map is also fu'ovivled. 
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1) AIM 6500 Microcomputer 

4K RAM 

8K BASIC 

8K MONITOR 

20 Column LED Display 

2) Memory Board 

32K Dynamic RAM 
16K PROM 

EPROM Programmer 

3) Input/Output Board 

10 8 bit Ports per Board 


Figure A. 1-1 System Computer Hardware 
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pr(x;r ams location 

INPl’T/OUTPUT SETUP 4K EPROM 

RUN NUMHER 

STARTING POINT 

CONTOUR DISPLAY 

ARC -TANGENT 

EPROM PROGRAMMER 

EPROM READER 

REGISTER SETUP 


BAS 1C 

4K 

EPROM 



plus 


2K 

EPROM 

JNPUT/STORE 

2K 

EPROM 


DATA TRANSI'ER 


( 


r'iauvf A. 1-2 






Sy8ti?m Computer Proqrams 
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A. 2 ProqrdRi Exocut ion Soquunce 

Immediatoly after turn-on all of tho computer 
Input/output portH aro confiquipd for ayatom 
operation. After thin the coniputor lumpn to the 
BASIC routine which temporarily jumpa to a normal- 
ixation routine. When complete, the computer 
returns to tho BASIC routine which siqnals the 
operator when ready. 

While tho coal ia bcinq cut the ayatem is continually 
movinq between the UASIC and Data Mandlinq routinea. 
The Data Handlinq routine inputs and atorea the 
qenerated bias, anqle, and roll data. At the end 
of each run, after all data has been input; the 
accumulated data is transferred to tape. 

AJter replication the data ia reduced a 1 uebra ica 1 ly 
to a useable form by the UASIC routine. The computer 
jumpa to the Contour DispUiy tout me .iiui pi«>s<.M)ta 
the calculated rcaulta to th»* system operator. 

Fxqures A. 2-1 .irul A. 2-2 provide a veiy qeiieial pi out am 
execution sequence. 


5 
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A. 3 Input/Output Setup Program 

The very first step that the computer makes is to 
send the tape rocordor a atabi 1 i /.at ion command. 

This is done to insure that the tape docs not 
move until required. After this all of the 
system input/output ports are configured for their 
particular application. The computer now executes 
the BASIC driver routine. 

Figure A. 3-1 shows the flowchart while Figure A. 3-2 
presents the actual program listing. 
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Figure A. 3-1 Input/Output Setup Proqrum Flowchart 
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^*lC'£ioO 


= , FOPTJ. JMP 

■*D000 ''[RL 
=*D000 DDBL 

«tSD00 

«f9D02 

, PORT SET FOP INPUT 
B^FBRD STR DDRC 

** 

. PORT PE0I5TEP 

**[.1000 DDRM 

«t?R00 

1ER4D0 STR DDRF 
0DRD1C STR DDRM 

«=:000 PBC*l?50i 

*«D000 ['DEM 

«I9R02 

R4353E STR DDBM 
RD1DR4 STR DDRL 


**D000 DDRR 

«#9E0Z 

«*D046 

852F4C STR DDBL 

, CONTROL R E L> I S T £ R S 

**D000 DDBP 

*t3E02 

52D0R5 STR DDRR 
3FR63E STR DDBP 

= s[-ii?i00 CRRCsfJ^Ol 

»*D000 DDRS 

*f?B00 

2042ER STR DDRT 

= = [>000 CPfcC>f?T'Oj 

*=D000^'DBS 

«f3B02 

R9E4B5 STR DDBT 
, PORT SET FOP OUTPUT 

= = 0 0 0 0 C R R [ ' * 1 6 0 1 

==D0O0 DDRT 

=t?F00 

3720 LDR #$FF 

= = 0 0 0 C F! & [■' = i ? 1 0 0 
= = ::>0O0 CRRL = I?D01 
= = [■000 CRBL = f .RDOr 

==D000 DDBT 

. NORflRLIZE 
20EC lDR 

=f9F02 

TRFE UNIT 

#$00 

*=D05? 

ERDF20 STR DDRD 
48ESR2 STR DDES 

;POPT SET FOR OUTilN 

= = D000 C FRfl=-| 3R01 

DFR2-2 STR 

CRBC 

04BD LDR #$0F 


20E1 LDR 

#$FF 

2ER4S5 STR DDBD 

= = [> 0 y 0 r; p E f '1 = 1 5* R 0 C 

DF20EC STR 

DDBC 



DPR? LDR 

#$04 

. PORT SET FOP DRTR 

= = [>000 [‘='R5 = i?B01 

00352; STR 

CRBC 



850E LDR 

#157 

R7CR LDR #$04 

= = ['000 ':Rc5 = ^?E03 

= = [:01i 


10F320 STR CRRC 

= = [■ 0 0 0 C r “> " = 1 5* P 0 1 

850C20 STR 

RBC 

==:'067 

HCDFR2 STR CRRD 

= = [•000 CR['' = i?'F0: 

, PORT SET, 

DIRECTION 

3F20E1 STR CRBD 
DF2073 STR CRRL 


RCE: LDR 

#$00 

E3CS4E STR CRBL 


B0FERD STR 

CRRC 
C F‘ R D 

D00SR5 STR CRRM 

L'-TR DIRETTION 

1ER4D0 STR 

370S10 STR CRBM 


0DRD1C STR 

CRBD 

= = ['ft7R 

= = [ 00 0 [:> [> H >[. = f f> C> 0 0 

R485’R STR 
==D022 

CRRl 

851720 STR CRRS 
ECDFR2 STR CRBS 

= = [> 0 0i 0 D D E C = 1 3 502 

RD1DR4 STR 

CPBL 

4R20E1 STR CRRT 


852E4C STR 

CRRM 

DF20'1 STR CRBT 

= = [■' Cl 0 0 D [ ' R D = f R F0 0 

31D0R5 STR 

CP EM 


SBRS2R STR 

CRRS 

. .TUnP TO BRSIC 

= = [■' 0 0 0 D C B [•' = 1 B 0 2 

2042ER STR 

CRBS 


= = ['000 DDRF = t 3C0C 

==D000 DDEF=IS202 

20FRDF STR 
==D034 
20R7E7 STR 

CRRT 

CRBT 

E8RDi": IMP $5000 

page is 

OP PCXjR QUAUT)- 


Figure A. 3-2 Input/Output Setup Program Listing 


A. 4 BASIC Program 


The main program utilized by the measurement 
system is the BASIC routine. All operations, 
if not performed as a part; originate from it. 

The program completes two major processes. One 
section calculates the general coal face contour 
from the accumulated data while another section 
displays more detail on the mining machine and 
its operation. The most recent addition to this 
program requests the operator to enter the mining 
machine's track end-point locations. This inform- 
ation references the measurement system results to 
a known coordinate geometry and thus closes the 
man-machine feedback loop. 

Figure A. 4-1 shows the flowchart while Figure A. 4-2 
through A. 4-4 presents the actual program listing. 
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LI -T 

10 P0KE4, 80:FOKE5/ 1 
N*USP(0> 

20 f‘U»PEEK<l7852) :D 
inc^ D<rii^i)/ E( 
Sv2) 

22-.FPIfr" " FPINT'’8 
T HEf=(DQFtTE POSITION" 
OOSUB1180 

PRINT" ".FRir4T"F 
iJSrt START BUTTON" GO 
SUE11S0 

2:: K2* T :»0 IFFEEK 

' :'iz: 'Oi?:then22 

10 F 0 K £ 4 0 4 8 0 / 2 1 S P 0 
KE4046G, 204 
4 ;* POrE404c-2 12T 
50 POK£404ei, 1:0 PO 
KE404S2/ 1:0 
:* :* POKE^i04c0, 206 PO 

K * * C *♦ 6 0 j 204 
■0 ‘ 2= 0'2.5 : PPINT" 

' repEEK' iS4:o ' ;00 th 
EN r0 

"5 IcpEEKaS424 '=01 
HEN.-FINT" INITIAL FUN 
" GOTO?0 

30 PRINT' PFuCEED" 

?0 F0KE4,il2 POKE?/ 
203* Ns'JSP ( 0 ' 

100 IFPEEK'. 176T7;' = 2 
?5^HEN114 

:10 IFPEEKC7S;: ■=2 
5-’HEN120 

:i2 IFPEEK'..13445>*1 
THEN“0 
11": GOTOS0 
114 2=1 P0KE17677/ 0 
1 :? IFPEEK(lS4j4)=0 
^4ENlFPEEKa84:2 - = 17 
HEN117 

116 IFFEEK': 1 : 34 : 6 ) =0 
THEN1620 

117 R=16S?6 ; GOSUBll 
3 F = 17152 G0SUE'118;G 
0" 01610 

11'3 FORK=lTOm+l -PC 
KEF'/ 63 

11? R=F*1 NEXT RETU 
FN 

120 V=0.T=0 
1:0 PRINT" "PRINT" 
DISPLAY ROUTINE" :GOS 
UB1130 


140 PRINT" " PRINT" 
PUSH FUNCTION BUTTON 
" QOSUB1180 

150 PRINT PRINT" 

S THEN ENTER BUTTON" 
:QOSUB1180 
160 IFFEEK ',:763T)«2 
54THENT-0 G0T01?0 
II'O IFT.2O00THEN122 

0 

180 ^*T^1 . GCTC130 
1?0 F0PV*1T05 PRINT 

It it 

200 IFV*lThENPFINT" 
DISF-ACEMENT OF RACK 
" GOT 0250, 

210 !PV«2THENFFINT" 
PRESENT POL." G0T025 
0 

220 IFv=:thENPF1NT" 
ROLL OF RACK SECTION 
" GOTO250 

220 IFV*4THENFFINT" 
PRESENT DISTANCE" GO 
TO250 

240 P'PINT"EXI'r FROn 
ROUTINE" 

250 GOSUB1180 I FREE 
K<27622>=254THENNEXT 
V GOTO1'?0 

260 IFFEEK^ 27622 *2 
51THEN2'?0 

270 IFT=500ThEN120 
280 ^=T^1 . GCTO260 
2?0 IFV=2THEN??0 
200 IFV=4THEN1060 
210 IFV=5THEN1220 
212 IFZ=1THEN220 
215 PRINT" "PRINT" 
THIS IS FIRST RUN" 
217 GOSUB11?0 GOTOl 
20 

220 T=0.N=0 
220 PRINT" "PRINT" 
PUSH STEP FOR RACK # 

II 

240 IFPEEK<;27622>=2 
52THEN265 

250 IFT*500THEN120 
260 T=T+1;GOTO240 
265 GOSUB270:GOSUB4 
55 GOTO650 


270 PRINT" "PRINT" 
USE LEFT/RIGHT SW. " : 
G0SUB1190 

280 PRINT" " :PRINT". 
TO SELECT DIGIT" :GOS* 
UB1190 

290 PRINT" ".PRINT" 
PUSH ENTER WHEN OK": 
GOSUBU90. 

400 V1«0.V2«V1:V2*V 
2 PRINT" " 

.404 IFN*0THENPPINTV 
1/ V2/V3:G0T0410 
406 IFR*0THENPRINTV 
1/ V2/ V2"' LEFT END" : 
Q0T0410 

408 PRINTVl; V2/ V2"' 
RIGHT END" 

410 pal 

420 IFP*2THENP0KE29 
682/ 2 GOTO450 
420 IFPa3THENP0KE29 
682/ 4-GOTO450 
440 P0KE296S2/ 1 
450 QOSUB1190 RE’UP 
N 

455 IFPEEK<27622)«2- 
29THENP»P+1 : GOTO500 
460 IFPEEK<2~622)0 
247THEN520 
470 P=P-l 
430 IFP«0THENF«: 

490 GOTO420 
500 IFP*4THEN410 
510 GOTO420 
520 I FREER <2762 2 '* 0 
252THENRETURN 
520 FORV»0TO9 PRINT 

II t< 

540 IFP=2THENV2aV:G 
OTO570 

550 IFPa2THENV2sV : G 
OTO570 
560 V1=V 

570 IFN=0THENPPINTV 
1, V2; V2:GOTO600 
530 IFR=0THENPR:INTV 
1/V2;V2"'' LEFT END": 
QOTO600 

590 PRINtVl; V2; V2"" 
RIGHT END":- 
600 GOSUB1180 
610 I FREER (27622 ) =2 
52 ThENNEXT;GOTO520 
620 RETURN 


Figure A. 4-2 BASIC Program Listing 


ORICmAL PAGE IS 
OF POOR QUAI.ITY 
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ifpefm::©::- 

51THEN680 

86U IFT-ieOCOO’^HENP 
OKE:9882.0 GOTO:20 
871? T*T^1 G0SUB455 
•jOTO8?0 

880 P0KE:?85;. 0. IFV 
■l*0TWENIFV2«0'^HEf4IFV 
3-0THEN220 
680 X«V1^10O+V2*10^ 
v: ifx<>mi*ithen7i0 
700 PRINT" " PRINT" 
ENTRY TOO LPRGE" GOS 
UB1190.GOTO:20 
710 T1*0 PRINT" " 
720 PR I NT "USE UP/DO 
WN SWITCH" GO5UB1180 
■PRINT" " 

7:0 RRINT"TO CHRiNGE 
RRICK NO " GOSUB1190 
740 GOSUB1160 
760 Vl*9 ify«:then8 
20 

770 IFE<X,'<0THENV1* 
Z EO!>«-E<;X) 

730 M=INT<E(X)*2. 28 
+KD/100 

780 IFV105THENPPIN 

T RRINT"RfiCK"X"F" 

M’FEET" GOTO870 
800 PRINT" "PRINT" 
RHCK"X"G"ri"PEET" ;E<X 
>*-E(X) : GOTOS70 
820 ri=X^2+16:82 : V2* 
PEEK(M) : V:»REEK<M+1) 
S:0 IFVS:>*8THENV2*2 
56-V2 V3*l5-Vi ;V1*5 
840 V2*INT( (,V3»256+ 
V2>*. 07bl25+Ki>/10 
850 1FV1-5THENPRINT 
" " PRINT"RftCK"X"G"V 
2"C'EG" ;GOTOS70 
860 PRINT" " PRINT" 
PR(CK"X"F"V2"DEG" 

870 GOSUBllSO 
880 IFPEEKC76S2>*2 
47THEN920 

3?0 IFPEEK07622)0 
2:.‘ THEN 940 
900 N'=X-1 . IFX=OTHEN 
X=X+1: 00^09^0 
910 GOT C 760 
920 X=:>1 IPX<>m + l 
■^HEN760 


920 X-X-1 

940 IFPEEK<3763:)-2 
51THEN1220 
950 IFPEEKi37633)»2 
54THEN120 

960 IFT<.^500THENT«T 
♦1.GOTO870 
970 IFT1*4THEN120 
980 T1*T1^1:QOTO720 
990 GOSUB1160 
992 F0RN*1T02 Vl*9 
994 V2*PEEK(401?2)P 
ND224 

998 V3«PEEK<40l94>Rt 
ND15 

1000 IFV:0*8T-HENV2* 
256-V2rV3*15-V3 : Vl«5 
1010 S<N)«V3*256'*‘V2 
:NEXT 

1014 IFSa)OS<2>TH 
EN992 

1016 V2* I NT 5 < 1 > ♦. 0 
78125+K3>. 10 
1020 IFV1*5THENPRIN 
T" PR I NT "ROLL G"V2 
"DEGREES" GOTO1100 
1040 PRINT" »:PRINT 
"ROLL F"V2"DEGREES" ; . 
GOTO1100 

1060 GOSUB1160 

1061 F0RN*1T02:V2*P 
EEK(40704) 

1062 V3*PEEK<40706) 
1064 S<N)«V3*256+V2 

:NE:>r 

1068 IFSa)OS<2)TH 
EN1061 

1070 V2.*INT(Sa>*l. 
322825+K3)/10 
1090 PRINT" " :PRINT 
"L0CPTI0N"V2"FEET" 
1100 GOSUB1190: IFPE 
EK<27632>=251THEN122 
0 

1110 IFPEEK(27632>» 
254THEN120 
1120 IFT*2000THEN12 

0 

1140 T=T*1 IFV=2THE 
N992 

1150 G0T01061 
1160 PRINT" "PRINT 
"PUSH EXIT TO EXIT" 
G0SUB1190 PRINT" " 


1170 PRINT-i FUNCTI 
ON TO RETURNVQOSUBl 
190 T«0 RETURN 
1180 FORD»1TO1000:N* 
EXTD- RETURN 
U90 FORD-1TO3000-N 
EXTD RETURN 
1220 IF2-1THEN1610 
1220 QOTO70 
1240 PRINT" " PRINT 
"PROCESSING" 

1290 Nl-Ml-1 N2«2*N 
1 K«>5 6:K1*. 0000958 
557 

1200 6P-12288:BI«12 
800 flP*12212-ftI*1282 
4 PM-14336 
1310 N*1 :FORU»0TON2 
STEP2 

1320 BL«PEEKc,BP^U> • 
BH*PEEK<BP^-U4-1> 

1325 IFBHM27THENBL 
*Bl-256;BH«BH-255 
1320 IL-PEEK(BI+U> : 
IH»PEEK.<BI+U>1) 

1325 IFIHM27THEML • 
*IL-256: IH-IH-255 
1340 flL»PEEK<ftP^-U) : 
flH*PEEK<flP+U-»-l) 

1345 IFftHM27THENRL 
«RL-256:ftH«RH-255 
1350 SL«PEEK(flI+U) : 
SH*PEEK<ftI^U^l) 

1355 IFSH>127THENSL 
=SL-256 SH-SH-255 
1360 ML-PEEKCfiM-^u:' : 
MH«PEEK<flfH-U^l) 

1365 IFMHM27THENML 
*Ml-256:MH*MH-255 
1370 D<N)«BL-IL+<BH 
-IH)>*<256 

1380 C<N)«flL-SL^MLf 
(RH-SH+MH)^256 
1590 N*N+1:NEXT 
1400 F0RN*1T0N1- : <N 
+1)=D<N)+D(N+1> :NEXT 
1410 B*(D<Ml)/f11 ■♦K 
1 C(l)=Ca)^Kl-B 
1420 F0RN*2T0ni:C' N 
>*C^N)tKl-B+C'.N-l) :N 
EXT 

1420 y=0;FORN*lTOMl 
: V=VtSIN(C(N>) :NEXT 


-Figure A. 4-3 BASIC Program Listing continued 
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1440 P0KE188.61 POK 
E189. 214.V*<V1-V2/K2 
>/K-V 

1450 V»V/<m+l) P«R 
TN<V/SQR<-V*V+1) - 
1460 D(1)«K^SIN<P) 
1470 F0RN*lT0f11 :['( N 

N ' 

1480 NEXT 
1480 FOPN-lTOll+1 
1520 E<N)«C’<;n • IFD< 
N'*: 0THEN1580 
15:0 IFr'(N>«0THEN15 
80 

1540 C(N) = INT' -L" N> 

♦ K2‘*'K2)+43 IFC'N)*48 
THEN1580 

1550 D^N)*45 G0T015 
80 

1560 D».N) = INT(D- N'* 
K2+K2)+4S IFD N)=48T 
HEN1580 

1570 C(N:=45 GCT015 
80 

1530 D(N>=48 ,C(N *4 

'*1580 P0KE16885+N. C'< 
N) P0KE17151>N, C(N> 
1600 NEXT 

1610 P0KE4,0 P0KE5. ‘ 
210 N=USR(0) 

1620 GOTO80 
1620 PRINT" "PRINT 
'END-POINT ROUTINE": 
o0f.UB1180 


1640 PRINT" ":PRINT 
"PUSH FUNCTION BUTTO 
N" :GOSUBlld0 
1650 PRINT" ":PRINT 
"TO BEGIN" .GOSUB1180 
1660 R«0. IFPEEKC76 
22>O254THEN1630 
1670 T«0N*1 
1680 PRINT" ":PRINT 
"PUSH STEP *^0 ENTER" 
GOSUB1180 

1680 PRINT" " :PRINT 
"END-POINT LOCPTION" 
QOSUB1180 

1700 IFPEEKa7632)* 
253THEN1720 
1710 IFT«5O0THEN162 

0 

1720 T«T-*-l GOTO1680 
1720 OQSUB270 
1740 G0SUB455 
1750 IFPEEk<27622)« 
251THEN1780 
1760 IFT*500THENPOK 
E28682. 0 GOTO1670 
1770 T»T+1 : GOTO1740 
1780 P0KE28632.. 0 IF 
R«1THEN1SO0 
1780 Xs'yi=flOO + V2*10 
♦V2 R*1.G0T01670 
1800 't’ 2*V1*1O0+V2^1 
0+V2;Vl=X/K2.GOTOl24 
0 

1810 END 


Figure A. 4-4 


BASIC Program Listing continued 
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AIS 


A. 5 Nonnalization Program 

Khanavar tha Raglatar Satup program la axaoutad 
the coal faca maasuramant ayatam la placad on a 
ready status. In this routina tha systam powar 
is chackad, all of tha tamporary control raglstara 
are setup, and if necessary the tape is rewound. 

Figure A. 5-1 shows tha flowchart while Figure 
A. 5-2 through A. 5-6 presents tha actual program 
listing. 
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>5»VE :e^v constant 


• « 16400 


NCPmAlI 

;ZE poutzne 

■■6400 

LOC*IO0FE 

*■6400 

L0CA*#4508 

■»6400 

NUMANG*f46:0 

•■6400 

PUNL0W»f462l 

■■6400 

PJNHI»I'46Z2 

■*6400 

pml*I4:-!01 

■ ■ 6 4 0 C* 

PMm»I4S02 

B « 6 4 0 0 

CODE *145 15 

■■6400 

PMLHIE*l45i6 

■=6400 

H C C G N ^ * 1 4 5 0 E 

■■6400 

LCO'J%T*t450F 

**6400 

PPFOfi»tDSO0 

*"“400 

PFPOM*IDA00 

■■6400 

“POMHeiDlOO 

■■6400 

PPOM^*fDl50 

s s 6 4 0 0 

FUNC*t?Z01 

■*6400 

PLIEP*I4517 

, POFTS 


■■6400 

PAC* 19500 

■■6400 

PEC*t9502 

■■6400 

PBD» 19602 


AOFF LC'V tlFF 
•»6402 L 
C3 INV 

B?e000 LDA ICOeO/V 
48 aha 
COli CAV 4112 
rOF' BNE L 

; CLEAR MsPLAV 

20P0E9 ;SR IE5F0 CPL 
F 

, NORMALIZING 

A0O0 LDV «tO0 
■«64i0 lOADNO 
B?1E64 LDA MSGNOR.V 
erSB CMP ' 

FOi: BEC ALT 

2C05EF JSP fEF05 OUT 
D 

CS INV 
4C1064 JMP LOADNO 

**641E MSGNOF: 

4E4F E'VT '•NORMAL I 
ZING, ' 

;A^TEP NMI VECTOR 

*'642A ALT 
A90O LDA 4 too 
SD02A4 STA SA402 
ASoS LOA 4168 
8D0ZA4 STA fA402 

;SV3TEM POWER STATUS 

ADOiBS LDA PBD 
Z00Z BMI AAA 
4CD866 JMP BATEPR 

■*64ZC 

;TURN RECORDER ON 

**643C AAA 
A908 LDA 4t08 
8D0296 STA PBD 


i TURN-ON DELAV 

20AA66 JSR DELAVl 

i CASSETTE LOADED ? 

AD0095 LDA PAC 
OA ASL A 
1028 6PL CCC 

■■644A BBB 

2OP0E<) JSR tE9F0 CRL 
F 

A0O0 LDV MOe 
■■644F LOADCL 
B95D64 LDA MSGCLE. V 
C93B CMP 4'i ' 

F0F4 BEQ BBB 
2005EF JSR #EF05 OUT 
D 

C8 INV 
4C4F64 JMP LOADCL 

■«645D MSQCLE 
4Z41 . BVT ^CASSETT 

E LOADING ERR; ' 

■*6472 

,TAPE POWER STATUS 

■■6472 CCC 
AD009S LDA PAC 
1002 BPL DDD 
4CD866 JMP BATERR 

;TURN RECORDER OFF 

■*647A DDD 
A900 LDA 4$00 
8D0296 STA PBD 

, TURN-OFF DELAV 

209566 JSR DELAV ' 


( 


Figure A. 5-2 
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r 


: ( 


» 

t-j- 

I 

9 ' 

r ! 


be 262-400 

. :ER0-PPiGE CONjTftNTS 


R9O0 

LDR 

• #00 

ir 

85'^: 

STR 

IF2 


R946 

LDR 

«#46 


85F: 

STR 

if: 


■■648R 

R900 

LDR 

• 100 

BI 

85' 4 

STR 

#F4 


R9;2 

LDR 

• 112 


85F5 

STR 

fF5 


R9O0 

LDR 

• #00 

RI 

85'6 

CT6 

#F6 


R9I6 

LDR 

•#:6 


35P7 

STR 

#F7 


• *64S*R 

R900 

LDR 

• #00 

BP 

85F? 

STR 

#Fg 


R920 

LDR 

• #20 


85F9 

STR 

IF? 


R900 

LDR 

• 100 

ROLL 

S5Fh 

STR 

#FR 


R940 

LDR 

• 140 


85Fr 

STR 

#FB 



ft 900 

LDR 

• #00 

RP 

85FC 

STR 

#'C 


A?: 4 

LDR 

• #14 


85'D 

STR 

#FD 


/ TEMP 

PRM 

constants 

A904 

LDR 

• 104 

RIPP 

8D0745 

STR 

#4507 


A900 

LDR 

• #00 


8D0R45 

F 

STR 

#450R 

PTV 

■*64BC 

SD0B45 

P 

STR 

#450B 

PNT 

8D0C45 

R 

STR 

I450C 

CNT 

SD0D45 

STR 

#450D 

DRF 

8D1445 

STR 

#4514 

ZFR 


8D0448 

STR 

#4804 

PRE 

8D0748 

STR 

#4807 

CTE 

■■64CE 




6D0R48 

STR 

#480R 

TFP 

R951 

LDR 

• #51 

YP 

8D0346 

STR 

#4802 


;CiET PUN « 

PAGE 

CODE 

R915 

LDR 

«#15 


8500 

STR 

#00 


A945 

LDR 

• #45 


8501 ■■ 

'STR 

#01 


■■64DE 




R917 

LDR 

• #17 


8502 

STR 

#02 


R902 

LDR 

• #02 


850! 

STR 

#02 


R916 

LDR 

• #16 


8504 

STR 

#04 


R94 5 

LDR 

«#45 


8505 

STR 

#05 


■»64EE 




2000DR 

JSP 

PPPOM 


/GET NO OF 

■ ANGLES 

R920 

LDR 

• #20 


8500 

STR 

#00 


R946 

LDR 

• #46 


8501 

STR 

#01 


R91C 

LDR 

«#1C 


8502 

STR 

#02 


R902 

LDR 

«#02 


■*64FF 




8502 

STR 

#02 


R921 • 

LDR 

• #21 


8504 

STA 

#04 


R946 

LDA 

• #4e 


8505 

STR 

#05 


2000DR 

JSP 

PPPOM 



1 


Ml 


;MAN(JRL DRTR STRRT 

’R900 LDA t«00 ! 

8500 STR 100 
■•6510 

8D0845 STR LOCR 
R938 LDR *$2B 

8501 STR #01 
8D0?45 STR LOCR^l 

;MRNURL DRTR END 

20BP66 JSR LIMIT 

iMfiNURL DRTR EPROM 

RS>1E LDR «#1E 

8502 STR #02 
■■6521 

R902 LDR «#02 

8503 STR #02 

2O0ODR JSR RPROM 

> INITIAL KEV TURNED’ 

RD0193 LDR FUNC 
C97F CMP i#7F 
F003 BEQ VES 
4C0166 JNP RUN 

■*6522 

; TURN RECORDER ON 

■■6532- VES 
R908 LDR t#0i 
8D0296'£Tfl PBD 

;TUPN-ON DELRV 

20RR66 JSR DELRVl 

;TRPE TO LORD POINT 
/LORD COMMAND READY 

R977 LDA «#77 
8D0295 STA PBC 

/ INTERMEDIATE DELAY 

209566 JSR DELAY 


Figure A. 5-3 Register Setup Program Listing continued 




bo 262-400 


. LOt^D COMMAND SENT ■ 
.STi^BILIZE PECOmP 

A??r LDA i#T7 
8D0i?? STfi« fe; 

• , lOFiC-'^OINT loop 

••iZ4? LPLOOP 
ADOe?? LDP PPC 
*?iO AND iflO 
DeP? BNE LPLOOP 

.TI!RN-0FF delav 

JSP DElAV 

.TJPN PECOPDEP OFF 

AfOA LDh itOO 
SC'0:96 STA FED 

,i = T PUN NUriEEP TO 0 
. FEAC- PMH 

A?OE lDA •f08 

£[•0 = 4? STA HCOUNT 

SHPEA[' 

ZOOODl JSP PROMH 
2O0ODA JSP PFPOM 

.= = POri ADDP EflPTV ’ 

AD0;4S LDA PMH 
C.-FF Cf^P «IFF 
F0O? BEO HZEPC 

. look at NEXT ADDP. 

3DII’4E STA PUNHI 
■*55SB 

EECE45 INC HCOUNT 
4C'Br'5 JMP SHPEAD 

;cp£viouS ADDP «e ^ 

* = HZEPO 

AD2i4e LDA PUNHI 
DOOc BNE HSTOPE 
8D0243 STA PMH 
4CS3S5 JMP SLOW 


Al» 


, EPROM PMH ADDP TO 0 

i EPROM 

RML ADDP TO 0 

■■657C HSTOPE 

■■85C5 

LSTORE 

EE0148 

INC RML 

EE0248 INC PMH 

2050D1 

JSR PROML 

20O8D1 JSP PROMH 

2000DS 

JSR PPPOM 

200eD8 JSP PPROM 

EE0F45 

INC LCOUNT 

EE0E45 INC HCOUNT 

D0O2 

BNE NORMKc 

>PEAD PML 

EE1845 

■■85D6 

INC PMLHIB 

■■8588 SLOW 
A9ce LDA «<eo 

i NORMALIZE KEY 

8D0F45 STA LCOUNT 

■■85D8 

NORMKE 

8D1845 STA PMLHIB 

20F0E9 

JSR tE.AFB CRL 

■■85?0 SLPEAD 
2C50D1 JSP PPOML 

p 

A000 

LDV 4400 

2000DA*-JSP PPPOM 

■■85DB 

LOADNK 

,EPPOM ADDP EMPTY t 

B9E985 

LDA MSG1» Y 

C92B 

CMP ' 

AD0148 LDA PML 

F015 

BEQ KEY 

2005EF 

JSP IEF05 OUT 

C9FF CMP tIFF 

D 

F011 BEO SSET 

C8 

INV 

,L00^ AT NEXT ADDP 

4CDB85 

JMP LOADNK 

■*659D SINCR 

■■65E8 

MSGl 

4E4F 

.BYT ^ NORMAL I 

ADC148 LDA RML 
8D2146 STA PUNLOW 

2E KEY; 

/ 

EE0F45 INC LCOUNT 
D0E8 BNE SLPEAD 

; INITIAL KEY TURNED? 

EE1845 INC RMLHIB 

■■65F7 

KEY 

4C9065 JMP SLREAD 

AD0193 

LDA FUNC 

■■85AE 

C97F 

CMP i#7F 

F0FS 

BEQ KEY 

>NEAP END OF PAGE 

4CF966 

JMP RETURN 

«*65AE SSET 

;GET RUN NUMBER 

AD2I46 LDA PUNLOW 
C3FE CMP i»FE 

;READ PMH 

D005 BNE LZERO 

■■6601 

RUN 

iPAGE CODE *C ? 

A908 

LDA 4408 

8D0E45 

STA HCOUNT 

AD1545 LDA CODE 

■■6606 

RHREAD 

D0E: BNE SINCR 

2000D1 

JSP PROMH 

> PREVIOUS ADDP. ■B 

2000DA 

JSR RPROM 

**65BA LZERO 

; EPROM 

ADDR. EMPTY ? 

AD2146 LDA RUNLOW 

AD0248 

LDA PMH 

DOBS BNE LSTORE 

C9^F 

CMP 44FF 

8D014S STA PML 
4CDec'5 JMP NORMIcE 

F009 

BEQ PLOW 


Plgur* A. 5-4 
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;■ «j-, PI 


Be 262-400 


A20 




cir'C'p 


f 


'■ r r ^ - '• T i 

-IJN-I 

■ * £ c 1 £ 


EE0E4' :n: 

-*:oi'NT 

■i.-Jirt.C' 'KP 

P 4 F E R D 

' . PE=*D R'lL 


==£ti: PlO 

u 

RROO lDh 

■ 1 0 0 

SD0=4! :Tm 

-COUNT 

o::s4! fTi; 

-NLRIc 

= = TTi'4 C;.: 

ERD 

T ’-t 

■F 

2' 0 0 0 C' P* ' S “ 

= S' PON 

= - = FDD 

F ENtTV 

R D 0 2 4 : L r R 

rml 

:s== CN= 

sfFP 

FOll EEO 

^EE" 

■ w ‘ R* f«! 

E,J RDDP 

= = :r:i -in: 

CP 

; wL - 

Rf'iL 

f:::44 j^h 

"'UNLOW 

EE0F4! INC 

L COUNT 

['C'ES rNE 

R u-:£RD 

EE:S4' INC 

=R_HIS 


-LPERD 

= = T T 4 I 


NE-- en: > 

•t -ROE 

==-£4' rSE’ 

r:::4£ lDR 

PUNLCW 

:>-E :r-i- 


DOOC BNE 

'PRNS 

--0E COLE 

r Lj ■*' 

rd:?4* ^dr 

CODE 

^OEZ EEC 

F' I N C P 




Tr -Nr 
LDF FUNHI 
J. T H F; f1 H 


; BIRE- 

InITIRl strpt 

RRC'O 

-DR #$00 

8500 

ETR $00 

**££5E 


8D0845 

S^R lCCR 

RREi' 

LDR #$C2 

8501 

ETR $01 

8D0R45 

ETR -OCR^l 

. EIRE- 

IM'IR^ END 

lOEF-fr 

J J K ^ I I ^ 

-■ E I R 5 - 

INITI4_ EFpOn 

RROO 

-C'R *$00 

8502 

ETR 102 

==£c£F 


R804 

lC'R #$04 

8501 

STR lOC 

2 0 0 0 [: R 

j j' F F ^ • 0 n 


/ RfiOLE 

-:n:t:r. etrpt 

RROO 

ldr #$oo 

8500 

ETR $00 

D 0 8 4 5 

ETR lOC'R 

‘“."IS 

-DR #$C£ 

== - r'F 

■Z' c - 

V T • 

ETF $o: 

8 C' 0 ■* 4 5 

ETR LCIR-t-i 

> RNGlE ■ 

-initirl end 

2 0 E - £ R 

JEP -IMIT 

> R N ij L E • 

-INTIRl EPF on 

R800 

-DR #$00 

3502 

ETR $02 

RROc 

LDR #$06 

8502 

ETR $02 

==££8F 

20OODR 

JEP F'FFON 

HI. 

JMP P'ETUPN 


4 


LDR PUNLCU 
rTF PriL 


. L-'ELRV SUBROU’INE 
. : iECOND 


* * £ £ 8 5 

del 

RV 

R80C* ’ 

LDR 

#$o: 

8D1745 

ETR 

FlIE 

*s££8R 

DEl 

R 

R 2 P F 

LDX 

• $F=^ 

^ = ££ .^C 

N''T 


n »J ^ r 

L 1- 't 

#$P P 

s = 4 n - E 

NV'T 


88 

DEV 


D0 = : 

ENE 

NV* 

OR 

DEX 


DOPE 

BNE 

NXT 

CEl"4t, 

DEC 

pl:e= 

D 0 - 1 

ENE 

CE-R 

£0 



.. DElR'-' 

EUEPOUTI' 


:0 SECONDS 

= -fti=ti=t DELFVl 
l=i3lF lDA 
S D 4. 1 4 5 STS ^ ’ 1 1 E ^ 

= = t.6flF DE.-IO 
R2FF lDX «IFi^ 
==tt&l NXXT 
RO- F lDV #tFF 
= = tV.E;: NVVT 
SS D£V 

DO^D BNE NW’ 

CR DEX 
DOFS BNE NX:-'T 
CE1T45 DEC PLIEF 
DOFi BNE DElRIO 
£0 RT5 


1 


i 


Figure A. 5-5 
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be 262-400 


A21 


END POIN”^’ 



lim: 

r • 

RiOCi 

LDX 

• JOO 

RD*!I^ 4o 

uDR 

NL'RRNO 

OR 

R5» 

M 

BOOi 

BCC 

lOu 

E8 

I NX 



LOU 


D8 

CLD 


18 

cl: 


6D0S4! 

RDC 

- 1"! R 

8504 

.-.TR 

l04 

8R 

TXR 


DS 

CLC 


18 

CLC 


oD0?45 

RDC 

LOCR^l 

8505 

S'rR 

105 

60 

R’5 



«otDS 

Bi=iT^ERV EPFO? 


s*66D8 

E'RTERF 

I'OFOER 

:SR IEc*FO CPL 

F 


ROOO 

LC'V i»lOO 

==FcDD 

LORL'BE 

EREstc 

lDR f1j:EEF,V 

C8IE 

CMP i» , 

FO^ 4 

EEC. E R ” E r P 

2005E= 

r, 

.o^' 1E^05 CUT 

L' 

C8 

IN-- 

4CDDf€ 

.T‘1P wORI'EE 

= = D r E B 

f’’ SOBER 

504F 

E T T " 0 L E F ■ 

R I i-L'RE/ 


/ ijE' ZEF'O *CN-T|iNTJ. 

*=c8F? 

P E T IJ r N 

ROlZ 

wCt »tlL 

==FcF: 


6 c 

F'LR 

9R0000 

SIR 10000. V 

88 

DEV 

lOF? 

EFV 

60 

RTS 
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C 




( 


( 


< 
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A. 6 Input/Store Proqram 

1'h« proqram that la executec '«t often by the 
system is the one that inputs and stores all of 
the data. This routine occurs each time the 
angle and distance electronics hardware sends 
an interrupt signal to the computer. When ac- 
tivated, the input resolver angle sum is divided 
by the number of samples and the result is 
temporarily stored for later calculations. The 
program is also designed to detect resolver 
failures which would not be avor.iiiod out by 
data reduction. 

Figure A. 6-1 shows the flowchart while Figure 
A. 6-2 through A. 6-5 presents the actual program 
listing. 


C 




c 


be 262-400 







be 262-400 


A24 


==e'ie:' p(=iL*i?D0'S 

♦ »f 00F 4 


INRUT.'S 

:tore routine 

=*6800 PBL*49D02 

* * 0 0 P 4 

ElOCI 

■*6800 FAR*49E01 
■*6800 PBP*49E00 

K S 00F 6 

ALOCI 

=*6800 IERDS^=I9E0E 

**00F8 

BLOC 

■*6800 NUMANG»44620 

■*00FA 

4 B ♦ r ^ 

PLOC 



♦ S :f +2 

; PUSH A, X. V TO STACK 

■ * 0 0 F C 

ALOC 



♦ B » ♦ 2 

48 PHA 

. TEMP 

RAM REGISTERS 

8A TXA 

*=00FE 


48 -PHA 

98 TVA 


♦ * 4 4 5 0 0 

48 PHA 

S B 4 *1 0 0 

RESULT 


♦ B * 1 

.SAVE Z E R 0 C 0 N S T A N T 

*=4501 

LOWEVT 


if B:f 4-1 

A0FF LDV #4FF 

*=4502 

RESLOW 

*=6807 L 


:f St +1 

C8 INV 

*=4507 

RESHI 

B90000 LDA 40000. V 


+ Blf ^2 

48 PHA 

==4504 

HIBVTE 

C012 CPV #412 


4 Elf+l 

D0F7 BNE L 

==4505 

REMAIN 


:f = ♦ + ! 

. LOAD/SAVE RESOLVER 

*=4506 

♦=4450A 

AD019E LDA PAR 

*=450A 

RTVPE 

8D0145 STA LOWBVT 


A S :f ^ ^ 

ADO09E LDA PBR 

==450B 

PCINTR 

*=681? 


:f B 4. -f 1 

8D0445 STA HIBVTE 

==450C 

COUNT P 

48 PHA 

==450D 

4B*+1 

.CHANGE TO 2 S COMP. 

==4801 

+=44801 

PMu 

1015 BPL LESS * 


»Bf<f 1 

49FF EOR #4FF 

= = 48 0 2 

PMH 

AA TAX 


if S f f 1 

AD0145 LDA LOWBVT 

==4807 


49FF EOP #4FF 


+=44y04 

8D0145 STA LOWEVT 


= = 4:?04 RfiE = = 6S2l=l 

* = EE0145 INC LOWBVT 

LUNi'TRNTb C'001 ENE NOCAPV 

= = 4Sec E5 I MX 

==r:S30 NOCAR V 

= = c'SO0 FED=t:-^t'06; 3ft TXA 

8D0445 STA HIE'VTE 


.SET REGISTER X TO 0 

»*c534 less 
A200 LDX #400 

.RESOLVER ANGLE ERR 

CS2C CMP #42C 
900C BCC HUNDRD 
AD0145 LDA LOUBVT 
C970 CMP #470 
9005 BCC HUNDRt 
A9CI LDA #401 
SD0448 STA PAE 

»*d846 

;HIQH BYTE <1O0 ^ 

«=6846 HUNDRD 
AD0445 LDA HIBVTE 
C964 CMP #464 
9011 BCC DIVIDE 

^SET FLAG GREATER 

A2FF LDX #4FF 

; SUBTRACT 25. OOO 

D8 OLD 
IS CLC 
AD0143 LDA LOWBVT 
6958 ADC #458 
**6856 

8D0145 STA LOWBVT 
AD0445 LDA HIBVTE 
699E ADC #49E 


Figure A. 6-2 Input/Store Progreun Listing 


be 262-400 


A2 


DIVIEIOr, RO'.’INE 



««iE5E DIVIDE 



HOO? LD- <xe': 



I:: EEC 



EEt”* EBC 

i N 0 P P - 

,::e -neuep 

* = DLCO=' 



05 PHP 

*=63rB 

SHIFT 

2E004? POL FE5.JLT 

4P 

lEP p 

0EO145 PE. uO.JBVT 

4P 

LEF p 

2P POL P 

4P 

-EP P 

23 PLP 

4P 

LEP P 

BCC PCD 

E0P = 

CP ‘ »IPP 

E E 5 4 SBC i 1 c - 

D002 

BNE EIGHT 

4C^5c5 TflF NE.-.'!’ 

0510 

opp *x:o 

*»SS7I- hDD 

==63P5 

E I GH'’ 

5E5J PDC •Id 4 

SD0145 

S"P PEShl 

==6375 NEXT 

RD0145 

L D' P _ 0 H B ■’ T 

33 DEV 

0P 

pel p 

DOEB ENE DLOO- 

0P 

PEl P 

BoC’C BCE _iET 

0p 

PEl P 

6564 mDC =164 

0M 

PEL P 

13 CLC 

SD0245 

ETP P E S L. 0 W 

«=637D LPST 



2ECU045 POL PEEOlT 

0 ETP IN 

i PEnPINDEP 

.E"PflIGhTEN OU^ 

PD 05 45 

LIP P E*’'P I N 


==63B5 


3D0545 ETP PEMPIN 

3 C' 0 4 45 

ETP rIBVTE 

PD0045 LDP PEEULT 

OP 

PEL P 

3 D 014 5 ETP L 0 B > T 

0P 

PE. p 


0P 

PEL P 

. PDD 250 

OP 

PEL P 


SD0145 

E T 4 L 0 W B V 7 

E0P- CPX 

PD0445 

.DP ^IBVTE 

D00E BNE EHI=^T 

4P 

LEP P 


4P 

LEP P 

==6f SD 

4P 

L-P P 

PDD 250 

==63C5 



4P 

LEP P 


PD0145 LC'P 

_I-4r 'T 

65FP 

PDC 

«I = P 

SD0145 ETP 

LOiIBVT 

B002 

BCE 

EHI^^T 

P200 

lDX 

«Xi’0 


. D1 'lEION F 

O'JT 

P00: .Cf 

03 EEC 

fcf.; 

E ? 6 ** EEC 

• 16 

*=6313 lOOP 
03 PHF 

w 

2 £004 5 POL 


0=0145 PE. 


2P FOt 

23 =L = 


P005 BCC 

P[' 

E564 SBC 

•It 

4CDD63 JM= 
==63DE PD_ 

n:'t 

6 5 6 P [ ' C 

‘»16 


s = tlDL. hVJ 


C' C 

••• -z 


DC^Er 
BCti! 

6 !? 6 - 
i'? 

= = c'8EV lE’ 


C'EV 

ENE wOCFC' 


BCE 
ft DC 
CLC 


i OF :c:m^u 


63 


0002 

SHI 

P0F- 

.l‘ ’ 

Pr jiJET 

PN 

— • ■ ^ r 

1 • fc. w 

PD0245 

L.t'P 

CD 004 5 

0 P P 

3D 02 4 5 

ET P 

, C hPNGE 

TC 

C0 = r 

CP T 

F015 

EEC 

45F = 

EOF 

3D0245 

ET P 

==6-== 


PD0145 

.DP 

4Si^F 

EC = 

3D0C45 

ETP 

EE 0245 

in: 

D00C 

E NE 

EE0245 

INC 
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t 


be 262-400 


**c •.“‘OF 

= E”^CH DFtTFf INTER 


**6?0F POSI^'v' 

Fl.:yE45 LC-V R'llNTP 

,BIRS(e^ C-R ^*NQ^£a) 


C.- = 
PCI*': 

LC-H 

■IMF 

EEQ 

» T •' r • 

H F- r 

RN j-E 


ElriE 

’0 HN'jLE 

A?-r 

S:'CiR4!' 

E C R 
ST* 

p T 'f C' £ 


INnRL FUN ■■ 


Rc>e:4S 

L D h * M M 
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A. 7 Data Tranafar Program 

^ach time the coal face is completely cut the 
Data Transfer Program Is executed. If after 
cutting the coal the system power is still good 
then the accumulated data is copied to tape. If 
the system happens to be making an 'initial run* then 
the generated information is also retained on an 
EPROM. 

Figure A. 7-1 shows the flowchart while Figure 
A. 7-2 through A. 7-6 presents the actual program 
listing. 
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Figure A. 7-2 Data Transfer Program Listing 
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Figure A. 7-3 Data Transfer Program Listing continued 
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Figure A. 7-4 Data Transfer Program Listing continued 
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A. 8 Contour Display Program 

Aftar the BASIC routine raduoaa tha coordinate 
data to a useable form the results are presented 
to the operator by the Contour Display program. 
This program is designed to provide the dis- 
placement of the track to the nearest one-half 
foot in either the FACE or GOB direction. 
Additionally it displays any of the possible 
system errors which could theoretically occur. 

Figure A. 8-1 shows the flowchart while Figure 
A. 8-2 through A. 8-4 presents the actual program 
listing. 
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A. 9 Starting Point Program 

Tha Starting Point Program anablaa tha coal I 

faoa maaauramant ayatam to produce automatic j 

rapaatabla oparationa. Thia program la | 

accaaaad from the BASIC routine and the Contour i 

Diaplay routine. Whenever the mining machine 
raturna to ita* original poaition thia program 
diracta the ayatem to normalize itaelf for the 
acquiaition of new data. 

Figure A. 9-1 ahowa the flowchart while Figure 
A. 9-2 preaenta the actual p'ogram Hating. 
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figure 


♦■18170 

zepo’positIon’detect 

■*8170 

iPPOGPftM CONSTANTS 
■*3170 ZFP*I4514 
**3170 SC0DE*f480D 
**3170 NOPf1RL*tDB?0 
**3170 PCPP*l?E0C 
**3170 IFPP*I3E0D 
■*317G IERP*f?E0E 
**3170 DISTPA*f?F00 
**3170 C'ISTPEt«t3F02 

, BACK TO START ? 

, ZERO flag SET '' 

AD1445 lDA ZFR 
D01Z BNE ZZ: 

, POSITIVE DISTANCE '' 

ADOISF LDA DISTPB 
C3I0 CflP #J20 
B041 BCS NOPE 

, GREATER THAN 1 FT '■ 

AD009F LDA DISTPA 
C308 CMP i#0S 
**3181 

?0ZA BCC NOPE 

;VES. SET ZERO FLAG 

A301 LDA #t01 
8D1445 STA ZFR 


/NEGATIVE DISTANCE ? 

■■8188 ZZZ 
AD029F LDA DISTPB 
C920 CMP «I20 
802E BCC NOPE 

/DISABLE NMI 

A902 LDA »$02 
8D0E9E STA lERR 

/SET BASIC STPT CODE 

A901 LDA #101 
8D0D48 STA SC ODE 

■*3199 

/ RESTORE SVSTEM 

2050DB JSR NORMAL 

/RESET distance 

A9EC LDA #IEC 
8D0C9E STA PCRP 
A9CC LDA #4CC 
8D0C9E STA PCPR 

/ENABLE NMI 

A9S2 LDA #$32 
8D0D9E STA IFPR 

X z 1 AR 

8D0E9E STA lEPR 

/SET DISTANCE 

A9CE LDA #$CE 
8D0C9E STA PCRR 
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8D0C9E STA PCRR 

/RESET ZERO FLAG 

A900 LDA #$00 
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■*81BD NOPE 
60 RTS 


A. 9-2 Starting Point Program Listing 
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A. 10 Utility ProqramB 

The followlnq are snuill programs which are uaad by 
the measurement system during normal operation i 

1) Run Number Program 

The Run Number Program enables the EPROM Programmer 
Program to fetch and save the run number register. 

2) Arc-Tangent Program 

The Arc-Tangent Program allows the BASIC routine to 
calculate the ARCSIN (x) function used in its* data 
rediction section. 

J1 EPROM Programmer Program 
The EPROM Programmer Program enables the system to 
permanently retain the initial run data and record 
the latest run number. Thus a battery is not re- 
quired to back-up the system to retain this information. 
4) EPROM Reader Program 

The EPROM Reader Program is a dedicated routine to 
fetch information from the system EPROM. 

Listings for those four programs are presented as 
Figure A. 10-1 through A. 10-4. 
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Figure A. 10-1 Run Number Program Listing 
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A. 11 SysteRi Memory Map 

The memory usage for the coal face measurement 
system is presented as Figure A. 11-1. It shows 
the allocation for the 64,000 possible memory 
addresses. The syrtem programs are found in 
t%»o groups. The following routines begin at 
heicidecimsl aodrerw i>or0t 

1) BASIC Program 

2) Input/Storo Program 

3) Data Transfer Program 

The remain.ng routines begin at hexidecimal address 
DOOOi 

1) Input/Output Setup Program 

2) Run Nusaber Program 

3) Starting Point Program 

4) Display Program 

5) Arc-Tangent Program 

6) EPROM Programmer Program 

7) EPROM Reader Program 

8) Register Setup Program 

8000 unused address locations proviie room for 
future program expansion. 
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SIZE (BYTES) 

ADDRESS (HEX) 

768 

0000-02PP 

7424 

0300-lPPP 

4K 

2000-2PPP 

4K 

3000-3PFF 

4K 

4000-4PPF 

6144 

5000-6 7FP 

IK 

6800-6BPF 

IK 

6C00-6FFF 

4K 

7000-7FFF 

4K 

8000-8FFF 

4K 

9000-9FFP 

4K 

AOOO-AFPF 

8K 

BOOO-CPFF 

256 

DOOO-DOFF 

112 

D100-D16P 

144 

D170-DIFF 

IK 

D200-D5FP 

512 

D600-D7FF 

512 

D800-D9FF 

336 

DA00-DB4F 

1200 

DB50-DFFP 

8K 

EOOO-FFFF 


64K 


DESCRIPTION 
AIN 6500 RAN 
BASIC Routine Variables 
Available for use 
Temporary Data Stroraqe 
System Registers 
BASIC PROGRAM 
INPUT/STORE PROGRAM 
DATA TRANSFER PROGRAM 
EPROM Programmer 
Available for use 
Input/Output Ports 
AIM 6500 Peripherals 
AIM 6500 BASIC 
INPUT/OUTPUT SETUP PROGRAM 
RUN NUMBER PROGRAMS 
STARTING POINT PROGRAM 
DISPLAY PROGRAM 
ARC-TANGENT PROGRAM 
EPROM PROGRAMMER PROGRAM 
EPROM READER PROGRAM 
REGISTER SETUP PROGRAM 
AIM 6500 Monitor 


Figure A. 11-1 System Memory Map 


